Các thư viện trong Unicode Full Controls

GlobalTools : Sử dụng các hàm trong đây như các hàm có sẳn của VB6 !

1. Một số hàm cần dùng

ColorsBlend(Color1 As Long, Color2 As Long, Optional PercentInDecimal As Single = 0.5) As Long	Hàm này dùng để trộn hai màu lại với nhau. PercentInDecimal giống như là liều lượng của hai màu vậy.Ví dụ : ColorsBlend(Đỏ,Đen,0.3) => Màu đỏ chỉ có 0.3 còn màu đen là 0.7
ShowCustomColor(Optional ByVal Defaultcolor As OLE_COLOR, Optional OwnerhWnd As Long = 0) As OLE_COLOR	Show bảng chọn màu. Trả về giá trị màu mà bạn chọn. Defaultcolor : Màu của bạn hiện tại OwnerhWnd : Cán của cửa sổ hiện tai hay Button đang Click.
IsMouseButton() As Integer	Hàm trả về nút chuột đang nhấn (1 = chuột trái,2 = phải, 4 = chuột giữa)
IsShiftState() As Integer	Hàm trả về 1 nếu phím Shift đang được giử (Hold).
IsKeyPress(ByVal vKeyCode As KeyCodeConstants) As Boolean	Hàm trả về True nếu vKeycode được press. Ngược lại False
DeleteRegeditKey(ByVal KeyRoot As T_KeyClasses, ByVal PathStr As String, ByVal sKey As String)	Xóa Key trong Registry.Chắc bạn nhìn cũng hiểu rồi (^_^)
SaveRegeditKey(ByVal KeyRoot As T_KeyClasses, ByVal sPath As String) As Long	Lưu lại một Key trong Registry
SaveRegeditValue(ByVal KeyRoot As T_KeyClasses, ByVal PathStr As String, ByVal sKey As String, ByVal sREG As RegValue, ByVal NewValue As String)	Lưu lại giá trị vào Value,sREG là kiểu dử liệu mà bạn ghi vào (BINARY,DWORD,STRING),các biến còn lại thì giống như hàm trên
ShowColor(cColor As Long, Optional lOwner As Long = -1, Optional EnabledHook As Boolean) As OLE_COLOR	Hiễn thị hộp thoại Color để người dùng chọn màu.Nếu EnableHook = True thì sẽ có tiếng việt trong đó. lOwner là handle của Form hay Button mở nó hay cái nào cũng được,miễn là có hWnd là được.Nó sẽ trả về giá trị màu của người dùng chọn
ShowFont(sFont As StdFont, Optional fontname As String = "Arial", Optional FontSize As String = 8, Optional FontBold As Boolean = False, Optional FontItalic As Boolean = False, Optional FontUnderLine As Boolean = False, Optional FontStrikeOut As Boolean = False, Optional FontColor As OLE_COLOR = vbBlack, Optional hWndOwner As Long = -1, Optional EnableHook As Boolean = False) As StdFont	Mở hộp thoại Font để người dùng chọn Font
ShowOpen(sFilename As String, sTitle As String, Optional hInstance As Long = -1, Optional sFilter As String = "*.*|*.*", Optional InitDir As String, Optional DfEx As String = "", Optional bOwner As Long = -1, Optional lFlags As Long = OFN_PATHMUSTEXIST Or OFN_READONLY Or OFN_NOCHANGEDIR) As String	Mở hộp thoại chọn file.lFlags là các cờ.Tham khảo các cờ sau Public Enum EOpenFile OFN_READONLY = &H1 OFN_OVERWRITEPROMPT = &H2 OFN_HIDEREADONLY = &H4 OFN_NOCHANGEDIR = &H8 OFN_SHOWHELP = &H10 OFN_ENABLEHOOK = &H20 OFN_ENABLETEMPLATE = &H40 OFN_ENABLETEMPLATEHANDLE = &H80 OFN_NOVALIDATE = &H100 OFN_ALLOWMULTISELECT = &H200 OFN_EXTENSIONDIFFERENT = &H400 OFN_PATHMUSTEXIST = &H800 OFN_FILEMUSTEXIST = &H1000 OFN_CREATEPROMPT = &H2000 OFN_SHAREAWARE = &H4000 OFN_NOREADONLYRETURN = &H8000 OFN_NOTESTFILECREATE = &H10000 OFN_NONETWORKBUTTON = &H20000 OFN_NOLONGNAMES = &H40000 OFN_EXPLORER = &H80000 OFN_NODEREFERENCELINKS = &H100000 OFN_LONGNAMES = &H200000 End Enum
RegisterFont (ByVal FontFileName As String, ByVal Question As Integer)	Đăng ký Font với hệ thống (Windows) FontFileName là đường dẩn của Font,Question = 0 là Đăng ký và Question = 1 là gở khỏi hệ thống.
ShowSave(sFilename As String, sTitle As String, Optional hInstance As Long = -1, Optional sFilter As String = "*.*|*.*", Optional InitDir As String, Optional DfEx As String = "", Optional bOwner As Long = -1, Optional lFlags As Long = 0) As String	Mở hộp thoại lưu (Save).lFlags cũng giống như trên.
TranparenthWnd(lHWnd As Long, iAlpha As Integer)	Làm cho Form trong suốt.lhWnd là Handle của Form mà bạn cần làm trong suốt.iAlpha là giá trị trong suốt (Độ trong suốt)
FileExist(FileAddress As String) As Boolean	Kiểm tra xem file có tồn tại không.Giá trị trả về ở dạng Boolean Nếu False thì file không tồn tại và ngược lại.
PressKey (ByVal bKey As Byte, Optional ByVal bShift As Byte = 0)	Giả lập nhấn phím, gần giống như sendkeys vậy. Các Key tham khảo : VK_LWIN = &H5B 'Left Windows key (Microsoft® Natural® keyboard) VK_RWIN = &H5C 'Right Windows key (Natural keyboard) VK_APPS = &H5D 'Applications key (Natural keyboard) VK_SLEEP = &H5F 'Computer Sleep key VK_RMENU = &HA5 ' Right MENU key VK_BROWSER_BACK = &HA6 'Windows 2000/XP: Browser Back key VK_BROWSER_FORWARD = &HA7 'Windows 2000/XP: Browser Forward key VK_BROWSER_REFRESH = &HA8 'Windows 2000/XP: Browser Refresh key VK_BROWSER_STOP = &HA9 'Windows 2000/XP: Browser Stop key VK_BROWSER_SEARCH = &HAA 'Windows 2000/XP: Browser Search key VK_BROWSER_FAVORITES = &HAB 'Windows 2000/XP: Browser Favorites key VK_BROWSER_HOME = &HAC 'Windows 2000/XP: Browser Start and Home key VK_VOLUME_MUTE = &HAD 'Windows 2000/XP: Volume Mute key VK_VOLUME_DOWN = &HAE 'Windows 2000/XP: Volume Down key VK_VOLUME_UP = &HAF 'Windows 2000/XP: Volume Up key VK_MEDIA_NEXT_TRACK = &HB0 'Windows 2000/XP: Next Track key VK_MEDIA_PREV_TRACK = &HB1 'Windows 2000/XP: Previous Track key VK_MEDIA_STOP = &HB2 'Windows 2000/XP: Stop Media key VK_MEDIA_PLAY_PAUSE = &HB3 'Windows 2000/XP: Play/Pause Media key VK_LAUNCH_MAIL = &HB4 'Windows 2000/XP: Start Mail key VK_LAUNCH_MEDIA_SELECT = &HB5 'Windows 2000/XP: Select Media key VK_LAUNCH_APP1 = &HB6 'Windows 2000/XP: Start Application 1 key VK_LAUNCH_APP2 = &HB7 'Windows 2000/XP: Start Application 2 key VK_OEM_1 = &HBA 'Used for miscellaneous characters; it can vary by keyboard. Windows 2000/XP: For the US standard keyboard, the ';:' key VK_OEM_PLUS = &HBB 'Windows 2000/XP: For any country/region, the '+' key VK_OEM_COMMA = &HBC 'Windows 2000/XP: For any country/region, the ',' key VK_OEM_MINUS = &HBD 'Windows 2000/XP: For any country/region, the '-' key VK_OEM_PERIOD = &HBE 'Windows 2000/XP: For any country/region, the '.' key VK_OEM_2 = &HBF 'Used for miscellaneous characters; it can vary by keyboard. Windows 2000/XP: For the US standard keyboard, the '/?' key VK_OEM_3 = &HC0 'Used for miscellaneous characters; it can vary by keyboard. Windows 2000/XP: For the US standard keyboard, the '`~' key '— C1–D7 Reserved '— D8–DA Unassigned VK_OEM_4 = &HDB 'Used for miscellaneous characters; it can vary by keyboard. Windows 2000/XP: For the US standard keyboard, the '[{' key VK_OEM_5 = &HDC 'Used for miscellaneous characters; it can vary by keyboard. Windows 2000/XP: For the US standard keyboard, the '\|' key VK_OEM_6 = &HDD 'Used for miscellaneous characters; it can vary by keyboard Windows 2000/XP: For the US standard keyboard, the ']}' key VK_OEM_7 = &HDE ' Used for miscellaneous characters; it can vary by keyboard. Windows 2000/XP: For the US standard keyboard, the 'single-quote/double-quote' key VK_OEM_8 = &HDF 'Used for miscellaneous characters; it can vary by keyboard. — E0 Reserved '- E1 OEM specific VK_OEM_102 = &HE2 'Windows 2000/XP: Either the angle bracket key or the backslash key on the RT 102-key keyboard ' E3–E4 OEM specific VK_PROCESSKEY = &HE5 'Windows 95/98/Me, Windows NT 4.0, Windows 2000/XP: IME PROCESS key ' E6 OEM specific VK_PACKET = &HE7 'Windows 2000/XP: Used to pass Unicode characters as if they were keystrokes. The VK_PACKET key is the low word of a 32-bit Virtual Key value used for non-keyboard input methods. For more information, see Remark in KEYBDINPUT, SendInput, WM_KEYDOWN, and WM_KEYUP '— E8 Unassigned ' E9–F5 OEM specific VK_ATTN = &HF6 'Attn key VK_CRSEL = &HF7 'CrSel key VK_EXSEL = &HF8 'ExSel key VK_EREOF = &HF9 'Erase EOF key VK_PLAY = &HFA 'Play key VK_ZOOM = &HFB 'Zoom key VK_NONAME = &HFC 'Reserved for future use VK_PA1 = &HFD 'PA1 key VK_OEM_CLEAR = &HFE 'Clear key

2. Hàm về chuỗi

UnicodeInputBox(ByVal Prompt As String, Optional ByVal Default = "", Optional ByVal Title = "", Optional XPos As Single = 1, Optional YPos As Single = 1) As String	Giống như Inputbox của VB6 nhưng nó có unicode
StringToByte(ByVal sString As String) As Byte()	Chuyễn một chuỗi sang dạng Byte() [Array Byte].
UnicodeMsgBox(sPrompt As String, Optional iButtons As VbMsgBoxStyle = vbOKOnly, Optional sTitle As String) As VbMsgBoxResult	Giống như Msgbox của VB6 nhưng có unicode,cách sử dụng không khác gì Msgbox
UnicodeTelex(xStr As String) As String	Chuyễn một chuỗi dạng telex sang unicode ,ví dụ : Tieesng vieejt = "Tiếng việt"
UnicodeText(xStr As String) As String	Chuyễn một chuỗi dạng Vni sang unicode , Ví dụ : Tie61ng vie65t = "Tiếng việt"
UTF8ToUni(ByVal sUTF8 As String) As String	Chuyễn một chuỗi từ UTF8 sang unicode
UniToUTF8(ByVal sUni As String) As String	Chuyễn một chuỗi từ Unicode sang UTF8
UnicodeTCVN3(xStr As String) As String	Chuyễn một chuỗi dạng ABC sang unicode , Ví dụ : TiƠng ViÖt = "Tiếng việt”
ConvString(srcString As String, DesType As ConvStr, ConvType As ConvStr) As String	Đây là hàm chuyễn chuỗi.Chuyễn qua lại giữa các dạng VNI, ABC, UTF8, Unicode. scrString là chuỗi mà bạn cần chuyễn.DesType là dạng ban đầu của chuỗi,ConvType là dạng mà bạn muốn chuyễn thành.Nó sẽ trả về giá trị mà bạn muốn chuyễn thành
PtrStr(Ptr As Long) As String	Lấy chuỗi trong giá trị Long khi dùng hàm StrPtr(Str) Ví dụ : Dim m_Str As Long m_Str = StrPtr(“Chuỗi”) Me.Caption = PtrStr(m_Str) => Caption = “Chuỗi”
UnicodeToHexaDecimal(ByVal UnicodeString As String) As String	Chuyễn 1 chuỗi dạng unicode sang mã ASCII.
HexaDecimalToUnicode(ByVal Character As String) As String	Chuyễn 1 chuỗi dạng ASCII code sang unicode.

Split: Phải khai báo trước khi dùng (Private <name> As New Split).

- Mỗi lần khai báo ta chỉ có thể add 1 object cần split.

- Cách sử dụng

o Call <name>.Attach(Object,HandleCursor Up/Down, HandleCursor Left/Right) [Nếu Handle bỏ trống thì sẽ lấy hCursor của Windows]

- Các Properties

o FullDrag (Boolean) : = True,các object sẽ chuyễn động theo khi drag.Ngược lại là sau khi drag thì các object mới thay đỗi.

o MaxSize : Kích thước lớn nhất mà object có thể resize

o MinSize : Kích thước tối thiểu mà Object có thể resize

o SplitSize : Kích thước của thanh drag.

- Code ví dụ :

-